Open Access-Status von Artikeln mit Charité-Beteiligung insgesamt und von Artikeln mit Charité-Corresponding Author 2018 - 2019
Open Access-Status von Artikeln mit Charité-Beteiligung auf Journal-Ebene im Jahr 2020
Median und Mittelwert der Zitierungen von den 2018 publizierten Artikeln mit Charité-Beteiligung (Daten von Crossref)
Lizenzen der 2018-2019 publizierten Artikeln mit Charité-Beteiligung
---
title: "Open Access Dashboard "
output:
flexdashboard::flex_dashboard:
orientation: rows
vertical_layout: scroll
source_code: embed
# author: Jan Taubitz
# email: jan.taubitz@charite.de
---
```{r setup, include=FALSE}
library(flexdashboard)
source("data_1.R", encoding = 'UTF-8')
source("rcrossref.R", encoding = 'UTF-8')
```
Row {data-height=150}
-----------------------------------------------------------------------
### 2018 - Open Access-Status von Artikeln mit Charité-Corresponding Author
```{r}
item_2018
```
Row {data-height=150}
-----------------------------------------------------------------------
### 2019 - Open Access-Status von Artikeln mit Charité-Corresponding Author
```{r}
item_2019
```
Row {data-height=200}
-----------------------------------------------------------------------
### 2020 - Open Access-Status von Artikeln mit Charité-Corresponding Author
```{r}
item_2020
```
Row {data-height=120}
-----------------------------------------------------------------------
### Analyse 1
Open Access-Status von Artikeln mit Charité-Beteiligung insgesamt und von Artikeln mit Charité-Corresponding Author 2018 - 2019
Row {data-height=500}
-----------------------------------------------------------------------
### Artikel mit Charité-Beteiligung
```{r}
status_percent
```
### Artikel mit Charité-Corresponding Author
```{r}
status_corresponding_percent
```
Row {data-height=120}
-----------------------------------------------------------------------
### Analyse 2
Open Access-Status von Artikeln mit Charité-Beteiligung auf Journal-Ebene im Jahr 2020
Row {data-height=500}
-----------------------------------------------------------------------
### Open access status in absolute numbers
```{r}
journal_absolute
```
### Open access status in %
```{r}
journal_percent
```
Row
-----------------------------------------------------------------------
```{r}
########################### Analysis ###########################
# Percent of article that were oa
# Percent of article with Corresponding author
# Percent of articles that were published in a doaj-journal
load("data/data_unpaywall.Rda")
is_oa <- sort(table(data_unpaywall$is_oa), decreasing = TRUE)
is_oa <- round(9427/sum(is_oa)*100, 1)
is_doaj <- sort(table(data_unpaywall$journal_is_in_doaj), decreasing = TRUE)
is_doaj <- round(4152/sum(is_doaj)*100, 1)
is_corresponding <- sort(table(data$corresponding_author_cha), decreasing = TRUE)
is_corresponding <- round(6292/sum(is_corresponding)*100, 1)
```
### Open Access-Artikel 2018-2020
```{r}
rate <- is_oa
gauge(rate, min = 0, max = 100, symbol = ' %', label= "Daten von Unpaywall", gaugeSectors(
success = c(50, 100), warning = c(30, 49), danger = c(0, 29)
))
```
### Autor ist Corresponding 2018-2020
```{r}
rate <- is_corresponding
gauge(rate, min = 0, max = 100, symbol = ' %', label= "Daten von Medbib", gaugeSectors(
success = c(40, 100), warning = c(30, 39), danger = c(0, 29)
))
```
### Journal ist DOAJ 2018-2020
```{r}
rate <- is_doaj
gauge(rate, min = 0, max = 100, symbol = ' %', label= "Daten von Unpaywall", gaugeSectors(
success = c(50, 100), warning = c(20, 49), danger = c(0, 19)
))
```
Row {data-height=120}
-----------------------------------------------------------------------
### Analyse 3
Median und Mittelwert der Zitierungen von den 2018 publizierten Artikeln mit Charité-Beteiligung (Daten von Crossref)
Row
-----------------------------------------------------------------------
###
```{r}
median_citation
```
###
```{r}
mean_citation
```
Row {data-height=120}
-----------------------------------------------------------------------
### Analyse 3
Lizenzen der 2018-2019 publizierten Artikeln mit Charité-Beteiligung
Row
-----------------------------------------------------------------------
###
```{r}
load("charts/chart_lizenzen.Rda")
chart_lizenzen
```
###